﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_Encuestarediseño22
    Inherits System.Web.UI.Page

    Dim itemgridview As GridViewRow
    Dim itemgridview1 As GridViewRow
    Dim correlativo As System.Web.UI.WebControls.Label
    Dim imagen As System.Web.UI.WebControls.Image
    Dim gv As System.Web.UI.WebControls.GridView
    'Dim etiqueta As System.Web.UI.WebControls.Label
    Dim codigopregunta As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Instanciamos la clase
        Dim capanegocios As New ResultadoBL
        Dim objeto As New BE.ResultadoBE

        Dim capanegociosencuesta As New EncuestaBL
        Dim objetoencuesta As New BE.EncuestaBE

        'llenamos  las  propiedades
        objeto.codigoencuesta = Session("ENCUESTA")
        objetoencuesta.codigo = Session("ENCUESTA")


        If capanegocios.ListarPreguntasxEncuesta(objeto).Tables("PreguntasxEncuesta").Rows.Count > 0 Then
            gvpreguntas.DataSource = capanegocios.ListarPreguntasxEncuesta(objeto)
            gvpreguntas.DataBind()
            lblencabezado.Text = "Encuesta: " + capanegociosencuesta.BuscarEncuesta(objetoencuesta).Tables("LaEncuesta").Rows(0).Item(1)

            'Pintamos el número correlativo de las preguntas
            Dim contador As Integer = 0
            For Each itemgridview In gvpreguntas.Rows
                correlativo = itemgridview.FindControl("lblnumero")
                contador += 1
                correlativo.Text = CStr(contador)
                'Buscamos el gridview incrustado
                gv = itemgridview.FindControl("gvresultados")
                objeto.codigopregunta = CType(itemgridview.FindControl("lblcodigopregunta"), Label).Text
                gv.DataSource = capanegocios.Resultados(objeto)
                gv.DataBind()
                Cargarimagen()
            Next
        End If
        'Liberamos recursos
        capanegocios = Nothing
    End Sub

    Sub Cargarimagen()
        For Each Me.itemgridview In gvpreguntas.Rows
            gv = itemgridview.FindControl("gvresultados")
            For Each Me.itemgridview1 In gv.Rows
                'Buscamos el control de plantilla del tipo Image llamado laimagen
                imagen = itemgridview1.FindControl("laimagen")
                Dim numero As Integer = CInt(CType(itemgridview1.FindControl("lblporcentaje"), Label).Text)
                imagen.ImageUrl = "Pictures/barra3D.jpg"
                imagen.Width = numero
                imagen.Height = 20
            Next
        Next
    End Sub
End Class

